Voorbeeld van de functie Pmt

Dit voorbeeld maakt gebruik van de functie Pmt om de maandelijkse aflossing van een lening gedurende een vaste periode als resultaat te geven. Gegeven zijn de rentevoet per periode (APR / 12), het totale aantal betalingen (TotPmts), de huidige waarde of hoofdsom van de lening (PVal), de toekomstige waarde van de lening (FVal) en een getal dat aangeeft of de betaling aan het begin of aan het eind van de betaalperiode plaatsvindt (PayType).

Dim Fmt, FVal, PVal, APR, TotPmts, PayType, Payment
Const ENDPERIOD = 0, BEGINPERIOD = 1    ' Wanneer de betalingen plaatsvinden.
Fmt = "###.###.##0,00"    ' Definieer valutanotatie.
FVal = 0    ' Gewoonlijk 0 voor een lening.
PVal = InputBox("Hoeveel wilt u lenen?")
APR = InputBox("Wat is de jaarlijkse rentevoet van uw lening?")
If APR > 1 Then APR = APR / 100    ' Zorg voor de juiste vorm.
TotPmts = InputBox("Hoeveel maandelijkse betalingen zullen er plaatsvinden?")
PayType = MsgBox("Vinden de betalingen aan het eind van de maand plaats?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
Payment = Pmt(APR / 12, TotPmts, -PVal, FVal, PayType)
MsgBox "Uw maandelijkse betaling is " & Format(Payment, Fmt) & "."